Den Feuebachkreis 
am Schwerpunkt S
zentrisch gestreckt
mit k =    -  2

ergibt den Umkreis

A = Intersect(xAxis, yAxis)
c_2 = Circle(A, 53)
B_1, B = Intersect(c_2, xAxis)
d = Circle(B, 45)
e = Circle(A, 26)
k = Circle(A, 28)
h = Circle(B, 45)
E, C_1 = Intersect(h, k)
d2, g_1, a_1, b_1 = Polygon(A, B, C_1)
α, β, γ = InteriorAngles(d2)
f = Line(B, C_1)
g = Circle(C_1, 21)
D, C_2 = Intersect(g, f)
abstandAD = Distance(A, D)
TextAD: Name[A] + (Name[D]) + " = " + abstandAD
d1, b_4, a_4, d_1 = Polygon(A, D, B)
d3, f_1, a_5, b_5 = Polygon(A, B, C_2)
abstandCF = Distance(C_1, C_2)
d4, d_2, a_3, b_3 = Polygon(A, B, D)
Text3 = LaTeX(C_1, true, true)
G = Midpoint(a_3)
M_C = Midpoint(g_1)
M_1 = Midpoint(a_5)
δ = Angle(A, C_2, B)
Text2 = LaTeX(B, true, true)
p = Circle(A, 35)
C, H = Intersect(p, a_5)
d5, c, a, b = Polygon(A, B, C)
umfangd5 = Perimeter(d5)
Punktd5 = PointIn(d5)
Text1 = LaTeX(C, true, true)
i = Distance(a, b)
Umkreis = Circle(A, B, C)
M_u = Center(Umkreis)
u = Vector(A, C)
B' = Translate(B, u)
w = Vector(B, B')
j = Vector(A, M_u)
l = Vector(M_u, A)
B'' = Translate(B', l)
m = Vector(B', B'')
n = Segment(B'', A)
M_F = Midpoint(n)
F = Midpoint(c)
I = Midpoint(a)
J = Midpoint(b)
Feuerbachkreis = Circle(M_F, J)
abstandMFMu = Distance(M_F, M_u)
abstandAMu = Distance(A, M_u)
TextAMu: "R = " + abstandAMu + ""
abstandMFI = Distance(M_F, I)
TextMFI: "Feuerbachradius = " + abstandMFI + ""
S = Centroid(d5)
Text4 = LaTeX(S, true, true)
Feuerbachkreis' = Dilate(Feuerbachkreis, -2, S)